home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 4-Fonts & Software / Demo Software / AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_209_ModalOneShot.txt < prev    next >
Text File  |  1989-04-09  |  1KB  |  2 lines
  1. # (decoded with TMPL 11972)
  2. { %filename% -- Modal one-shot dialog }{ Created %date% %time% by AppMaker }Unit %unitname%;InterfaceUses%if MPW%    {$Load ToolBox.dump}        MemTypes,        QuickDraw,        OSIntf,        ToolIntf,        PackIntf,    {$Load}%end if%%If Think%{$ifc undefined Think_Pascal}    ListManager,{$endc}%end if%    ResourceDefs,    DialogAids;Type    %dlogname%Rec = record        %DeclItems%    end;{----------}Procedure Get%dlogname% (var %dlogname%:    %dlogname%Rec);{----------}Implementation%If MPW%{$D+}{$R+}{$OV+}%end if%const    %ConstItems%%If MPW%{$S %unitname%}%end if%%ItemProcs%%MaybeFilter%{----------}Procedure Get%dlogname% {(var %dlogname%:    %dlogname%Rec)};var    theDialog:        DialogPtr;    itemNr:            integer;Begin    InitCursor;    theDialog := GetNewDialog (%dlogname%ID, nil, pointer (-1));    SetPort (theDialog);    With %dlogname% do begin        %SetItems%        ShowWindow (theDialog);        %EnableItems%        ModalDialog (%Filtername%, itemNr);        case itemNr of            %HandleItems%        end; {case}        %FinishItems%    end; {with}    DisposDialog (theDialog);End; {Get%dlogname%}End. {%unitname%}